home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / BACKUP.SAB < prev    next >
Text File  |  1991-09-26  |  1KB  |  65 lines
  1. label start
  2. clear all v
  3. set mes off ; set err mes off ; set echo off ; set bell off
  4. cls
  5. display cp.dis
  6. Write "BACKUP.SAB" At 2,36
  7. label redo
  8. set color backgrnd red
  9. set color foregrnd white
  10. SET NULL "-0-"
  11. set v wzxc to ""
  12. fillin wzxc using "Back-Up To [A] Drive Or [B] Drive  " at 10,22
  13. write "                                           " at 10,22
  14. WRITE "Backing Up DataBase To Drive -> " at 10,22
  15. write .wzxc at 10,54
  16. if wzxc = "a" or wzxc = "A" then ; goto bua ; endif
  17. if wzxc = "b" or wzxc = "B" then ; goto bub ; endif
  18. goto redo
  19. label bua
  20. OUTPUT A:RENT.BAK
  21. BACKUP ALL
  22. goto beep
  23. label bub
  24. output b:rent.bak
  25. backup all
  26. label beep
  27. BEEP
  28. OUTPUT SCREEN
  29. cls
  30. set col bac mag
  31. display cp.dis
  32. write "BACKUP.SAB" at 2,36
  33. write "Hardcopy In Progress" at 12,30
  34. close
  35. erase retemp*.*
  36. open rent
  37. reload retemp
  38. cls
  39. set col back gre
  40. display cp.dis
  41. write "BACKUP.SAB" at 2,36
  42. write "Floppy & HDD Back-Up Complete.  PACKing In Progress" at 12,14
  43. PACK
  44. beep
  45. label poi
  46. set col bac blu
  47. WRITE "PACKing Complete, BACKUP Complete, SHUTDOWN Complete" at 14,14
  48. label sav
  49. write "Place O/S & .SAB Files Disk In Drive" at 16,19
  50. write .wzxc at 16,56
  51. write "Press Any Key To Continue" at 17,27
  52. pause
  53. set col bac blu
  54. if wzxc = "a" or wzxc = "A" then ; goto sava ; endif
  55. if wzxc = "b" or wzxc = "B" then ; goto savb ; endif
  56. label sava
  57. run sava.sab
  58. goto fin
  59. label savb
  60. run savb.sab
  61. label fin
  62.   cls
  63.   return
  64.  
  65.